תקליטור אוסף מעל 200 משחקים מרתקים/over-200-games-micro-a-media.iso/CONNECTD/HOST2.DXR/00019_setUp screen2.ls

Text File | 1996-01-12 | 5.7 KB | 160 lines

on mouseUp
  global fh, winVers, hintsOn, QTon, saveQT, Brian, level, JDspecial, special, savePlace, seton, helpOn, pal, launcher
  if (launcher = 1) and (winVers <> 1) then
    fh(mUpdateBorder)
  end if
  if (the mouseV > 396) and (the mouseV < 440) then
    if (the mouseH > 79) and (the mouseH < 131) then
      if hintsOn = 1 then
        set helpOn to 1
        set the castNum of sprite 20 to the number of cast "dot"
        set the castNum of sprite 21 to the number of cast "dot"
        set the castNum of sprite 22 to the number of cast "dot"
        updateStage()
        set seton to 0
        tell window "guest"
          if QTon <> 1 then
            set savePlace to the frame
          end if
          set the castNum of sprite 48 to the number of cast "dot"
          if JDspecial <> EMPTY then
            set holdit to JDspecial
            killSpecial()
            set JDspecial to holdit
          end if
          repeat with x = 1 to 12
            if special = x then
              set temp to special
              set killThing to "killSpecial"
              put x after killThing
              do(killThing)
              set special to temp
            end if
          end repeat
          if QTon = 1 then
            set QTon to 0
            set saveQT to EMPTY
            set the visible of sprite 2 to 1
            tell the stage
              preLoadCast(pal)
              puppetPalette(pal, 60)
              go("main" & level)
            end tell
          end if
          if QTon = 0 then
            set pal to the framePalette
          end if
          go("contents")
          sound stop 2
        end tell
      else
        puppetSound("invSnd5")
        updateStage()
      end if
    else
      if (the mouseH > 151) and (the mouseH < 202) then
        saveGame()
      else
        if (the mouseH > 223) and (the mouseH < 273) then
          loadGame()
        else
          if (the mouseH > 292) and (the mouseH < 344) then
            set the castNum of sprite 20 to the number of cast "dot"
            if level = 1 then
              set the castNum of sprite 22 to the number of cast "quitReally?"
            else
              set the castNum of sprite 22 to the number of cast "quitReally?2"
            end if
          else
            if (the mouseH > 361) and (the mouseH < 414) then
              if level = 1 then
                set the castNum of sprite 20 to the number of cast "setAudio"
                set the castNum of sprite 21 to the number of cast "audioSlider"
              else
                set the castNum of sprite 20 to the number of cast "setAudio2"
                set the castNum of sprite 21 to the number of cast "audioSlider2"
              end if
              if the soundLevel = 0 then
                set the locH of sprite 21 to 245
              else
                if the soundLevel = 1 then
                  set the locH of sprite 21 to 257
                else
                  if the soundLevel = 2 then
                    set the locH of sprite 21 to 269
                  else
                    if the soundLevel = 3 then
                      set the locH of sprite 21 to 281
                    else
                      if the soundLevel = 4 then
                        set the locH of sprite 21 to 293
                      else
                        if the soundLevel = 5 then
                          set the locH of sprite 21 to 305
                        else
                          if the soundLevel = 6 then
                            set the locH of sprite 21 to 317
                          else
                            if the soundLevel = 7 then
                              set the locH of sprite 21 to 329
                            end if
                          end if
                        end if
                      end if
                    end if
                  end if
                end if
              end if
              updateStage()
            else
              if (the mouseH > 427) and (the mouseH < 481) then
                set helpOn to 1
                set the castNum of sprite 20 to the number of cast "dot"
                set the castNum of sprite 21 to the number of cast "dot"
                set the castNum of sprite 22 to the number of cast "dot"
                updateStage()
                set seton to 0
                tell window "guest"
                  if QTon <> 1 then
                    set savePlace to the frame
                  end if
                  set the castNum of sprite 48 to the number of cast "dot"
                  if JDspecial <> EMPTY then
                    set holdit to JDspecial
                    killSpecial()
                    set JDspecial to holdit
                  end if
                  repeat with x = 1 to 12
                    if special = x then
                      set temp to special
                      set killThing to "killSpecial"
                      put x after killThing
                      do(killThing)
                      set special to temp
                    end if
                  end repeat
                  if QTon = 1 then
                    set QTon to 0
                    set saveQT to EMPTY
                    set the visible of sprite 2 to 1
                    tell the stage
                      preLoadCast(pal)
                      puppetPalette(pal, 60)
                      go("main" & level)
                    end tell
                  end if
                  if QTon = 0 then
                    set pal to the framePalette
                  end if
                  go("help")
                  sound stop 2
                end tell
              end if
            end if
          end if
        end if
      end if
    end if
  end if
end